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FAST T-BUG RELOADER 



Everett Ogden 
175 Adams Street 
Delmar, HI 12054 



Those of you with Radio Shack's T-BUG program have 
probably been aggravated more than once by finding youraelf 
unceremoniously dropped back into BASIC, or by getting locked 
up in a program and having to reset the machine. You then 
have to reload T-BUG, which takes about half a minute. The 
program is still there (well, most of it) but you can't get 
back to it without a cassette load. This change to T-BUG 
will allow you to do that, and repair the damage done by the 
BASIC monitor, by reloading just two bytes. 

First it is necessary to understand how the computer 
knows it should run T-BUG after loading it, insteam of re- 
turning to the BASIC monitor. There is nothing in the CLOAD 
routine to do this. It calls the subroutine CLOADO (which 
does the actual loading), performs a few other manipulations, 
and returns to the BASIC monitor. I had to cogitate on this 
a while (I'm new at this game) but I finally got it. I'll 
admit the people who designed this are pretty clever. When 
a subroutine is called, the return address is pushed onto 
the stack. Level I initializes its stack at 4-200, and when 
CLOADO is called the return address is stored at 41FE and 
41FF. BASIC programs start at 4200, but T-BUG runs from 4091 
to 43B6 and overwrites the stack. It changes the return ad- 
dress to 40B1, which is the start of T-BUG. 

If you get into BASIC you could return to T-BUG with a 
CLOAD of address 40B1 into the proper location. However, 
this leaves two problems. CLOADO loads a checksum after the 
last data byte (at 4200 in this case). Also, the BASIC moni- 
tor alters certain memory locations near the start of T— BUG. 
These changeB are repaired by the program below. It occupies 
memory space not used by T-BUG. Level I uses the space to 
store variables Q through Z, A$, and B8. 

Load T-BUG and write this program at 4070: 



4070 


01 


28 


00 


LD BC, 0028 


4075 


11 


40 


40 


LD DE, 4040 


4076 


21 


91 


40 


LD HL, 4091 


4079 


ED 


BO 




LD1R 


40 7 B 


21 


00 


42 


LD HL. 4200 


40 7E 


36 


^2 




LD M, 32 


4030 


C3 


Bl 


40 


JP 40 Bl 



Run this nroeiram, which moves 40 bytes beKinning at 4091 
to 4040. Then change 4073 to 21 and 4076 to 11. Change 41FE 
and 41FF to 70 40. Now punch 41FE to 41FF, preferably at the 
head of a leadcrless tape to make it easy to find. Finally, 
punch 4040 to 43R6, which is your new T-BUG. If you find 
vourself in BASIC you need only rewind the cassette to the 
iiead and a CLOAD will put you back into T-BUG in seconds. if 
you live into the middle of the ROM or try to do anything in 
BASIC before returning f o T-BUG, there is no tell ins what 
ianap;e may br caused. In-r. you'll 1u9t nave to reload the 
complete version of P— 3UG 



CORRECTION TO 

FAST T-BUG RELOADER 

My fast reloader program depends in part on repairing 
the damage done to T-BUG by a return to the BASIC monitor. 
I have found that the patch in the orieinal version isn't 
quite big enough. The following version repairs 4091 to 
40B8. It includes 13 bytes of "he line buffer (which begins 
at 40AC) ; this corrects the changes caused by entering the 
CLOAD commando 

Load T-BUG and write this program at 4070: 



4070 


01 28 


00 


LD BC, 0028 


4073 


11 40 


40 


LD DE, 4040 


4076 


21 91 


40 


LD HL, 4091 


4079 


ED BO 




LD1R 


407B 


21 00 


42 


LD HL, 4200 


40 7E 


36 32 




LD M, 32 


4080 


C3 Bl 


40 


JP 40B1 



Hun this program, which moves 40 bytes beginning at 4091 
to 4040. Then change 4073 to 21 and 4076 to 11. Change 41FE 
and 41FF to 70 40. Punch 41FE to 41FF (the fast reloader). 
Finally punch 4040 to 43B6, which is your new T-BUG. 

As far as I can tell, this fixes all problems caused by 
a simple return to the BASIC monitor. Of course, if you dive 
into the middle of the ROM or try to do anything in BASIC 
before returning to T-BUG, there is no telling what damage 
■ay be caused. Then you'll just have to reload the complete 
version of T-BUG. 



NEW#: LEVEL I Everett B. Ogden 

PROGRAM RENUMBERER 175 Adams Street 

Delmar, NY 12054 

When you modify a program, you may find you haven't left 
enough space between line numbers to add all the new lines 
you want. Even if you have, you may want the final version 
to have line numbers with equal increments. It gives a 
cleaner look to the program, as though you had written it the 
right way the first time. If you have T-BUG, you can gener- 
ate a machine language program which will renumber a BASIC 
program. 

Level I stores programs starting at 4200. Each line 
consists of the line number in two-byte binary form and the 
text in ASCII, ending with a carriage return (OD). NEW# 
finds the carriage returns and fills the next two bytes with 
the new line number. 

In order to load NEV# without disturbing the BASIC pro- 
gram, it must be loaded below 4200. The last two bytes, at 
41FE and 41FF, tell the computer to jump to the start of the 
program after loading it. 

Since NEV# overwrites part of T-BUG (including part of 
the PUNCH routine) it must be written above 4400, block-moved 
to its proper location, then saved on tape under control of a 
loader program. Load T-BUG, then write NE¥# and its loader 
starting at 4400. Before running it, save it using T-BUG's 
PUNCH command. This will allow you to modify it later if you 
want to. Next set up your recorder to record, and jump to 
4400. The program will return to the BASIC monitor when it 
is finished. 



B 



To use NEW#, load a BASIC program. Now load NEW# with 
the CLOAD command. Do not type NEW. The program will run 
automatically after loading and will end with a return to the 
BASIC monitor. When you call for a listing, you will find 
the BASIC program unchanged except that the line numbers are 
now evenly spaced in increments of ten. To change the incre- 
ment, change the value loaded into register pair BC (see 
4426). Don't forget to rewrite lines with GOTO or GOSUB 
instructions to agree with the new line numbers. 





NEW# 


(loader 4400-4416) 




4400 


21 20 44 


LD HL, 4420 


;move block from 4420- 


4403 


11 DO 41 


LD DE, 41D0 


jWtf to 41D0-41FF 


4406 


01 30 00 


LD BC, 0030 




4409 


ED BO 


LDIR 




440B 


CD E9 OP 


CALL 0FE9 




CTOH 


440E 


21 DO 41 


LD HL, 41D0 




start of block 


4411 


CD 4B OF 


CALL 0F4B 




CSAVEO 


4414 


C3 66 00 


JP, 0066 




jump to BASIC monitor 


4417- 


+41F: don't care 




4420 


51 90 40 


LD SP, 4090 


; initialise stack 


4423 


21 00 42 


LD HL, 4200 


; start of BASIC program 


4426 


01 OA 00 


LD BC, OOOA 


; increment (+10) 


4429 


11 00 00 


LD DE, 0000 


; stores line # 


442C 


EB 


EI DE, HL 


* 


442D 


E5 


PUSH HL 


;last line # 


442E 


2A 6C 40 


LD HL, (406C) 


;end of BASIC prog. +1 
;Z-1 If HL*DE (done) 


4431 


17 


RST 20 


4432 


CA 66 00 


JPZ, 0066 


; BASIC monitor 


4435 


El 


POP HL 


;last line # 


4436 


09 


ADD HL, BC 


; increment 


4437 


SB 


EX DE, HL 


;DS - new line # 


4438 


73 


LD M, E 


;HL points to next # to 


4439 


23 


INC HL 


;b« changed. Load D & E 


443A 


72 


LD M, D 


;into next two bytes 


443B 


23 


IRC HL 




443C 


3E OD 


LD A, OD 


; carriage return 


4431 


BE 


CP M 


;find next CR+1 


44 3F 


23 


IHC HL 




4440 


20 FC 


JRHZ, -4 


;to 443E 


4442 


18 E8 


JR, -24 


;to 442C 


44./*4-444D : don't care 




444E 


DO 41 




; 'return' address 



RADIO STATIONS 

IF ANY BROADCASTERS HAVE THE TRS-80 OR PROGRAMS, I WOULD 
LIKE TO GET IN CONTACT WITH YOU. 



CURT NUNNERY, SALES MANAGER 

W F A I RADIO FAYETTEVILLE 

P. O BOX 649 

FAYETTEVILLE, NC 28302 

PHONE <919> 483-0393 



3 CLS 

19 PRINT AT 22, "*** NOT-ONE ***" 

28 REM BY STAN OCKERS 9-78 

25 PRINT PRINT PRINT 

30 PRINT "DO VOU WANT INSTRUCTIONS <VES <Y> OR NO CM»" 

40 Y=l : N=2 INPUT Q : IF Q=2 GOTO 200 

50 IF QOi GOTO 30 

60 CLS PRINT "VOU AND THE COMPUTER TAKE TURNS ROLLING PAIRS OF DICE " 

70 PRINT "THERE ARE TEN ROUNDS. YOU MAY ROLL AS MANY TIMES IN ONE" 

30 PRINT "ROUND AS VOU WISH HOWEVER. IF VOU REPEAT THE SAME" 

90 PRINT "NUMBER AS VOU ROLLED AT THE BEGINNING OF THE ROUND" 

100 PRINT "VOU WILL LOSE ALL POINTS FOR THAT ROUND THE COMPUTER" 

110 PRINT "WILL THEN TAKE ITS TURN FOLLOWING THE SAME RULES " 

120 PRINT "THE WINNER IS THE ONE HAVING THE MOST POINTS " 

130 PRINT "AFTER TEN ROUNDS GOOD LUCK!" 

140 PRINT : PRINT "PRESS ENTER WHEN VOU ARE READV TO START " 

150 INPUT A* 

190 REM * DRAW DICE - SET UP ARRAY ♦ 

200 DATA 8/ 25, 28. 45. 68. 85. 88. 105. 8. 9. 24, 25. 28, 29. 44. 45. 68, 69, 84 

210 DATA 85,88,89,104,195,392,326,458.330,454,390,394,402,336 

220 DATA 468, 340, 464, 400, 404, 422, 356, 488, 360, 484, 428, 424, 432, 366 

238 DATA 498,370,494,430,434 

240 CLS : V-13 : GOSUB 290 : RESTORE 

245 V-25 GOSUB 290 

250 FOR I-1T016READ XFOR V-14T025 :SET<X, V) NEXT YNEXT I 

260 FOR I-1T028 : READ A(I> : NEXT I 

270 GOTO 300 

290 FOR I-1T04 : READ A, B : FOR X-ATOB : SET(X, V) :NEXT X:NEXT I RETURN 

3O0 REM * INITIALIZE COUNTERS * 

318 R-0 : Z-0 X-0 

320 R-R+l : IF R-ll THEN 680 

323 PRINT AT 920, "ROUND NUMBER "; R 

338 REM * PLAYERS DICE • 

333 TO : H-l : PRINT AT 708, "ROLL • l"i 

340 F-0 : GOSUB 390 : F-T : PRINT AT 644, "FIRST ROLL » "iFi 

350 PRINT AT 6, "ROLL AGAIN ", : INPUT Q : IF 0-2 THEN 400 

333 H-H+1 : PRINT AT 708, "ROLL • ";Hi 

368 GOSUB 390 : IF A+B-F THEN 380 

370 GOTO 350 

380 PRINT AT 6, "SORRY, VOU ROLLED ANOTHER ";F 

385 FOR J-1TO200O : NEXT J : GOTO 400 

390 0-0 : GOSUB 988 : A-D : 0-7 : GOSUB 900 : B-O : T-T+A+B 

395 IF A+B^ THEN T-0 

399 PRINT AT 772. "ROUND TOTAL - "; T; : RETURN 

400 X-X+T : PRINT AT 196, "YOUR TOTAL - »J Xi 
410 PRINT AT 6, "COMPUTER'S TURN" 

415 REM * COMPUTER'S DICE * 

420 T-0 : F-0 : GOSUB 490 : F-T PRINT AT 674, "COMPUTER'S FIRST - "; F; 

425 H-l : PRINT AT 738, "ROLL • 1"; 

430 IF <F-2)+<F-12) THEN L-20 

435 IF <F«3>+<F«il> THEN L-9 

440 IF <F-4>+<F-5>+CF-6>+<F-9>+<F=10> THEN L-6 

445 IF <F-7)+<F-8) THEN L-4 

450 M=0 : FOR JflTO2000 : NEXT J 

460 GOSUB 490 : IF A+B-F THEN 500 

470 M=M+1 : IF M-L THEN 500 

480 H=H+1 : PRINT AT 738, "ROLL t "; Hi 

485 FOR J-1TO2000 : NEXT J : GOTO 460 

490 0=14 : GOSUB 980 : A=D .0-21 : GOSUB 900 B=D : T-T+A+B 

495 IF A+B-F THEN T-0 

499 PRINT AT 802, "ROUND TOTAL = "i T; RETURN 

500 Z=Z+T : PRINT AT 226, "COMPUTER'S TOTAL = "; 2, 



D 



520 GOTO 320 

60O CLS PRINT "FINAL SCORE VOU. ",X. " COMPUTER, "• Z 

610 IF Z>X THEN 670 

620 IF Z=X PRINT "IMPOSSIBLE A TIE ! ! ! " 

625 IF Z=X THEN ?00 

630 PRINT "FANTASTIC JOB '! VOUP R GENIUS !!" GOTO 700 

670 PRINT "TOUGH LUCK MAVBE NEXT TIME " 

675 GOTO 700 

700 V=l : PRINT : PRINT INPUT "WANT TO TRV AGAIN <Y> OR <N) M ;Q 

710 IF 0=1 THEN 200 

720 PRINT "VOLI PLAYED WELL. I HOPE WE CAN PLAY AGAIN SOMETIME " 

730 END 

906 FOR P=1T07 PRINT AT A(P+0), " "; : NEXT P 

920 D=RND<6) IF (D=1)+<D=3)+<D=5> THEN 970 

930 FOR P=2 TO D+l : PRINT AT ACP+O), "*"; : NEXT P 

940 GOTO 980 

970 FOR P=1T00 : PRINT AT A(P+0>, "*"; : NEXT P 

980 PRINT AT 0; RETURN 



SAVE $200 00 

WE HAVE AN EXTRA 'TRS-80 LEVEL I 16K' COMPUTER IT HAS HARDLY 
BEEN USED. OWNER BOUGHT A LARGER COMPUTER. PRICE *689 00 

CALL <919> 485-4182 OR 485-7147 OR WRITE TRS-80 USERS GROUP. 



TRS-80 USERS GROUP 

I GOT MY LEVEL II ABOUT 2 MONTHS AGO AND THINK IT IS 
GREAT. MUCH BETTER THAN LEVEL I <I RECCOMMEND GETTING IT> 
HERE IS A PROGRAM WHICH USES THE EXTRA COMMANDS OF LEVEL II 

DID YOU EVER WANT YOUR TRS-80 TO MAKE SOME NOISE. WELL 
THIS IS HOW TO DO IT. THE CASSETTE RECORD LINE CAN BE USED 
AS A TONE GENERATOR IF A MACHINE PROGRAM IS USED. 
THIS MUSIC PROGRAM DOES JUST THAT, YOU CAN USE THE CASSETTE 
RECORDER TO RECORD THE MUSIC BY PRESSING PLAY AND RECORD 
(REMOVE THE REMOTE PLUG TO ALLOW IT TO RUN). I HAVE ALSO 
USED A AMPLIFIER TO PLAY THE MUSIC ON SPEAKERS. HERE ARE 
SOME OTHER THINGS I HAVE LEARNED ABOUT THE OUTPUT PORT: 

1. THE ONLY PORT AVAILABLE WITH OUT THE EXPANSION UNIT IS 
PORT 255. THIS PORT CONTROLS THE CASSETTE. 

2. USE THE 'OUT' COMMAND TO CONTROL THE PORT IN BASIC. 

3. BITS AND 1 ARE USED TO MAKE THE TONES FOR THE RECORDING 

4. BIT 3 IS USED TO CONTROL THE RELAY. THIS CAN BE USED 
FOR OTHER THINGS BESIDES CONTROL I NG THE CASSETTE. 

OUT 255, 4 WILL CLOSE THE RELAY 
OUT 255, WILL OPEN THE RELAY 

5. BIT 4 IS USED TO DISPLAY 32 CHARACTORS ON THE SCREEN 
THIS DOES NOT CHANGE THE STORAGE TO EVERY OTHER CHAR ACTOR 
HOWEVER. THERE MUST BE ANOTHER CHANGE IN THE BASIC RAM. 

6. THE OTHER BITS ARE NOT USED 

TONES CAN NOT BE GENERATED WITH A BASIC PROGRAM BECAUSE 
OF THE SPEED REQUIRED. THE MACHINE PROGRAM CAN BE SIMPLIFIED 
IF ONLY A SINGLE FREQUENCY OF SHORT DURATION IS REQUIRED 
I HOPE YOU IN JOY THIS PROGRAM AND CAN PUT IT TO USE. 
DEAN MCCULLOCH 
37202 MANCHESTER 
STERLING HTS, MI 48077 






1 MUSIC 

I ■ BY DEM MCCULLOCH 

3 ' MflCHINE CODE LOCATED FOR 4K RAM 

9 ' 16-108 LOWS MACHINE PROGRAM HND SETS UP USR 

18 FOR 1=28226 TO 20274 

29 READ fl 

30 POKE LA 
48 NEXT I 

56 DATA 285, 127, 18, 14, 255, 6, L 285, 136, 79, 6, 2, 285, 136, 79 
68 DATA 43, 62, 8, 188, 181, 194, 117, 79, 201, 237, 65, 237, 91, 159, 79 
78 DHTH 27, 62, «, 178, 179, 194, 142, 79, 281 
98 POKE 16526, 112 

100 POKE 16527, 79 

101 ' FQ= THE FREQUENCY OF THE TONE DESIRED 
182 ' TH= THE DURATION OF THE TONE IN SECONDS 
189 'READ NOTE 

118 READ FQ, TN 

114 ' FIND NUMBER OF CYCLES TO PLAY 

115 CY=INT(FQ*TH> 

119 ' CHECK FOR FREQUENCY OUT OF RANGE 

128 IF FQ>5008 THEN FQ=5800 
125 IF FQ<50 THEN FQ=50 

129 ' 136-170 FIND AMD STORE HALF WAVE TINE DURATION 
138 D2=8 : D029488/FQ 

140 IF DE0512 THEN DX=2 : D£X=0E-512 
158 IF DE/S256 THEN D2=DZ+1 : DE2=OEX-256 
168 POKE 28283, D£X 
178 POKE 28384, DZ 

189 ' CALL MACHINE PORGRAM 

190 X=USR<CV) 

289 ' GET NEXT NOTE 
216 GOTO 116 

225 ' DATA FOR MUSIC FIRST NUMBER IN PAIR IS THE FREQUENCY, 

226 ' SECOND NUMBER IS THE TIME DESIRED 

238 DATA 352, . 5, 352, L 264, . 5, 352, . 5, 396, 1, 264, 1, 448, . 5, 396, . 5, 448, . 5 

248 DATA 465, . 5, 448, L 396, . 5, 352, . 5, 352, L 338, . 5, 297, . 5, 338, . 5 

258 DATA 352, . 5, 396, . 5, 448, . 5, 338, 1, 297, . 5, 297, . 5, 264, 2, 528, 1, 465, . 5, 448, . 5 

268 DATA 465, L 448, L 396, . 5, 448, . 5, 352, . 5, 396, . 5, 338, L 264, . 5, 352, . 5 

278 DATA 352, . 5, 338, . 5, 352, . 5, 396, . 5, 352, L 264, . 5, 448, . 5, 448, . 5, 396, . 5, 448, . 5, 465, . 5 

288 DATA 448, L 396, . 5, 448, . 5, 465, . 5, 448, . 5, 396, 5, 352, . 5, 338, 1, 352, 5, 465, . 5, 448, 1 

298 DATA 396, . 5, 396, . 5, 396, 2 



TRS-88 QUALITY SOFTWARE 



LEVEL I. AND LEVEL II. 

§L IDM-I CASSETTE DATA BASE $28 

#2. INV-I INVENTORY CONTROL $28. 

•3. STOCK-I SECURITY INFO. 118. 

#4 BANK-I CHECK BALANCE $18. 

•5 FINBNCE-I STOCK-I A BANK-I *15. 

DISKETTE. 

•12 MAIL-III MAILING LIST $35. 

•14. HORD-III WORD PROCESSOR S35. 
121. INV-I I I INVENTORY CONTROL *35. 
•22 KEY-III KEY RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE, CASSETTER * DOCU. 



LEVEL II 

•11 HORD-I WORD PROCESSOR *25. 

•15. HAIL- I NAME AND ADDRESS $25 

•16. SORT-I SORT UTILITY $18 

•17. STAT-I STATISTICS *18 

•18. KEV-I KEY-ACCESS $10. 

•19 SALE-I SALE AHALVSIS $18. 

•28. UTIL-I SORT-I * KEY-I $16. 



MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, HA 02174 



fl UNIVERSAL PRINTER INTERFACE FOR THE TRS-88 

THE PROJECT CAME TO LIFE WHIN I TRIED TO INTERFACE A TELETYPE 
PRINTER TO A FRIEND'S TRS-88 I FOUND OUT VERY SOON THAT THE TRS-88 
DOES NOT GENERATE LINEFEEDS. THIS SAVES ENORMOUS AMOUNTS OF PAPER 
BUT THE LEGIBILITY IS SOMEWHAT SUBSTANDARD. THIS LED TO THE DESIGN 
OF A BLACK BOX WHICH CAN INTERFACE A WIDE VARIETY OF PRINTERS TO THE 
TRS-88 DIRECTLY OR TO THE TRS-88 INTERFACE. 

THE BOX HAS THESE FEATURES: 

AUTOMATIC LINEFEED: A LINEFEED CHARACTER IS AUTOMATICALLY INSERTED 
AFTER EACH CARRIAGE RETURN (CAN BE DISABLED). 

SERIAL INTERFACE: 28 MA CURRENT LOOP OR RS232. BAUD RATES 119/ 
158, 388, 688, 1288. WORD LENGTH IS SELECTABLE FOR 7 OR 8 BITS, 
1 OR 2 STOP BITS. 

PARALLEL INTERFACE: CENTRONICS TYPE, CAN BE MODIFIED WITH 
JUMPERS TO A WADE VARIETY OF CONFIGURATIONS. 

INTERFACE TO TRS-88: CONNECTS EITHER DIRECTLY TO TRS-88 BUS <NO 
TRS-88 INTERFACE REQUIRED) OR TO PRINTER PORT ON THE TRS-88 INTERFACE. 

DELAY AFTER CARRIAGE RETURN: MANY PRINTERS NEED A DELAY OF SEVERAL 
CHARACTER LENGHTS AFTER A CARRIAGE RETURN. THIS IS USUALLY TAKEN 
CARE OF BY SOFTWARE. THE BOX SOLVES THIS PROBLEM BY GENERATING A 
BUSY SIGNAL OF ADJUSTABLE DURATION AFTER A CARRIAGE RETURN. 

CASE REVERSAL: THE TRS-88 DOES NOT DISPLAY LOWER CASE CHARACTERS, 
BUT LEVEL II BASIC ENTERS LOWER CASE WHEN THE SHIFT KEY IS PRESSED. 
THIS IS EXACTLY OPPOSITE TO NORMAL USAGE. THE BOX CAN BE SET TO 
REVERSE UPPER CASE TO LOWER CASE AND VICE VERSA. THIS FEATURE ALLOWS 
NORMAL TYPING. 

THE BOX COMES READY TO RUN WITH CABLES TO CONNECT TO THE TRS-88 
KEYBOARD OR TO THE PRINTER PORT AT THE TRS-88 INTERFACE IT HAS 
ITS OWN POWER SUPPLY BUILT IN. THE CONNECTION TO THE PRINTER IS 
VIA A DB25P CONNECTOR. 

PRESENT STATUS OF THE PROJECT <BY OCT. 28, 1978): THE HANDWIRED 

PROTOTYPE HAS BEEN RUNNING FOR TWO MONTHS DIRECTLY WITH THE TRS-88 

(LEVEL II) AND WITH A TRS-88 INTERFACE (DISK) 

THE PC BOARD IS CURRENTLY BEING LAID OUT AND I HAVE MOST PARTS FOR 

A TEST SERIES OF 18. 

HOWEVER, MY LAYOUT MAN CAUGHT PNEUMONIA AND I AM GOING ON A TRIP 

UNTIL DECEMBER ALL THIS WILL OBVIOUSLY DELAY THE PROJECT. 

THE PRICE WILL BE BETWEEN $188 AND $158. I DON'T THINK THERE CAN 

BE ANY SIGNIFICANT DELIVEARV BEFORE THE MIDDLE OF FEBRUARY, 1979. 

LET ME KNOW IF YOU ARE INTERESTED WRITE TO: 

BIGFOOT SYSTEM DESIGN 
2925-37TH AVE SOUTH 
MINNEAPOLIS, MN 55466 

I WILL ACCEPT ORDERS FOR A WAITING LIST, BUT DO NOT SEND MONEY NOW. 
IN CASE VOU WOULD LIKE TO KNOW, BIGFOOT IS MY CAT 
OTTO BAADE 



H 



10 CIS PRINT AT ?=;."+*+** SKFTCH ******" 

12 REM BV STAN OCKERS 9-7S 

15 PRINT "DIRECTIONS" 

20 PRINT PRINT "THE COMPASS DIRECTIONS NORTH CN>, SOUTH <S>." 

25 PRINT "EAST (F.I AND WEST <W> ARF USED IN BETWEEN DIRECTIONS" 

?0 PRINT "APE GIVEN BV THE SUMS < NORTH EAST= N+E, SOUTH WEST= S+W~- 

12 PRINT "AFTER THE DIRECTION. VOU WILL BE ASKED FOP THE LENGTH" 

14 PRINT "OF LINE IN THAT DIRECTION " 

16 PRINT "OTHER COMMANDS CAN BE GIVEN INSTEAD OF A DIRECTION :" 

37 PRINT " D' PUTS VOU INTO DRAW MODE - LINE WILL BE DRAWN" 

38 PRINT "'U' PUTS VOU INTO UNDRAW MODE - NO LINE. BUT MOVEMENT" 

39 PRINT "'K' KILL - WIPES SCREEN CLEAR. DOES NOT DESTROV MEMOPV" 

40 PRINT "OF WHAT WAS DRAWN" 

41 PRINT M 'R' REDRAW - WILL REDRAW ALL THAT VOU'VE ENTERED" 
43 PRINT "PRESS ENTER TO CONTINUE" 

45 INPUT Af 

49 1=0 

58 X»64: V=24 

60 CLS 

70 SETC64.24) SET<65, 24) 

75 F=i 

80 N=i E=3 S=2 W=6 : K=9 : D=18 : U=li P=12 

100 PRINT AT 0, "DIRECTION <N, S, E, W, N+E, ETC , D, U, K OR R>"; 

185 INPUT Q 

120 IF Q=12 THEN 300 

122 IF 0=9 THEN 50 

130 IF Q=10 THEN 200 

135 IF Q=ll THEN 230 

140 PRINT AT 45, "LENGTH"; INPUT L 

141 A<I)=Q : 1=1+1 : A<I)=L : 1=1+1 

142 IF F=6 THEN 170 

147 FOR J=l TO L : GOSUB 590 

150 IF <X=126>+<X=0)+CV=47)+<V=0) THEN 100 

168 NEXT J: GOTO 100 

170 FOR J=l TO L : GOSUB 588 

180 IF (X=126)+<X=0)+<V=47)+<:V=0) THEN 100 

198 NEXT J GOTO 100 

200 F=l : A(I)=1000 

210 1=1+1 : GOTO 100 

230 F=0 : A<I>=2000 

235 1=1+1 : GOTO 100 

300 A<I)=0:I=0:CLS:X=64:V=24 

385 F=l 

310 IF A<I)=0 THEN 180 

328 IF A<I)=1000 THEN 410 

330 IF A<I)=2000 THEN 420 

332 Q=A<I) 1=1+1 : L=A<I> : 1=1+1 

335 IF F=0 THEN 388 

348 FOR J=l TO L : GOSUB 598 

350 IF (X=126>+<X=0)+CV=47)+<V=0) THEN 310 

360 NEXT J : GOTO 310 

388 FOR J=l TO L GOSUB 588 

398 IF(X=126)+(X=8) + <V=47>+<:V=8) THEN 318 

400 NEXT J: GOTO 318 

418 F=l : 1=1+1 : GOTO 318 

420 F=0 1=1+1 : GOTO 310 

500 V=V-1 

510 X=X+2 : RETURN 

528 V=V+1 590 RESET<X, V) : RESET <X+1, V) 

530 X=X-2 RETURN 590 w Q QOSUB 570, 550, 510, 500, 540, 530, 560, 520 

540 V-V+1GOT0 510 690 SET<X, V) :SET<X+1, V) : RETURN 

558 V=V+1 : RETURN 

560 V=V-1 GOTO 530 

578 V=V-1 : RETURN 



(jft6-60 Software) 



***NEW PRODUCT ANNOUNCEMENT*** 

CHANNEL DATA SYSTEMS PERSONAL LEDGER 

NOW AVAILABLE FOR RADIO SHACK'S TRS-80 LEVEL II 

After a very positive response to the Personal Ledger from 
users of Commodore's PET and many inquiries from users of Radio 
Shack's TRS-80, Channel Data Systems has adapted the Personal 
Ledger to the TRS-80 Level II personal computer. 

Channel Data Systems' Personal Ledger is a complete double 
entry bookkeeping system with provisions for budgeting and 
keeping records of income, deductible and non-deductible 
expenses, assets and liabilities. Its simple interactive 
features enable entering transactions, adding or editing 
accounts, and printing of a detailed Income Statement and Balance 
Sheet. Users completely unfamiliar with computerized accounting 
and with little or no knowledge of bookkeeping can use the 
system. 

Up to 50 accounts are allowed with names and budgets 
specified by the user. An audit trail of all entered 
transactions is printed on the screen where it can be copied with 
the screen printer or copied to cassette if you do not have a 
printer. All account data is stored on cassette, loaded prior to 
entering transactions and stored after entering transactions. 
There is no waiting for printing to the tape during operation of 
the system. Extensive error recovery features are included to 
allow reentry of an erroneous instruction or value. 

The Personal Ledger runs in 8K bytes of free RAM on 
Commodore's PET and 16K bytes on Radio Shack's TRS-80 Level II. 
Level II BASIC is a version of Microsoft BASIC which can be 
translated to most other BASIC systems with minimum 
modifications. 

Personal Ledger is supplied on cassette in TRS-80 Level II 
or Commodore PET format (Please specify) and includes a complete 
manual with a program listing, flow charts, sample data, and 
complete operating instructions. All for only $20.00 (Calif, 
residents please add 6X sales tax) by Channel Data Systems. 

ORDERS: Check, money order or VISA/Master Charge accepted; 
programs and cassetes guaranteed and shipped within five days 
after receiving your order. VISA/MC telephone orders welcome at 
(805) 964-6695. 

REMEMBER: Specify TRS-80 or PET when ordering PERSONAL LEDGER 

Channel Data Systems 

5960 MANDARIN AVENUE • GOLETA. CA 93017 803.9C4 6695 
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Only $5 - 3 issues 



For only $5. you can receive the next 
3 issues of Ca lculato rs/ Computers, the 
how-to-do-it magazine. J-very issue will 
contain articles to help you use, program, 
and enjoy your TRS-80. Ixiok lor these 
attractions in the Sept/Oct issue. 

• TRS-80: What's Behind Bars' 

• Introducing Elementary School 
Children to the Computer - using the 
TRS-80 

• My TRS-80 Likes Me - featuring vernal 
activities and graphics - ongoing series 

• Number Patterns on the TRS-80 

• Programs in BASIC that you can 
modify for the TRS-80 

• And more TRS-80 games, tutorials, 
anil programs in each issue! 



C alcula tors / Computers Magazine 
will help you. the TRS-80 owner, get 
more hours of enjoyment from your 
computer. ..AND. will enable you to 
share your computing know-how with 
friends and family. 

Calculators/Computers Magazine 
also includes how-to articles for your 
calculator.. 

Subscribe Today! 



Also available are these back Issues 
featuring more TRS-80 articles: 

• The TRS-80: A lot of computer for J400- 
March 78 

• TRS-80 Rectangular Graphics - April 78 

• TRS-80 Games and Abstract Art - May 78 

• TRS-80 Number Patterns 

My TRS-80 Likes Me Sept/Oct 78 

TRS-80 What's Behind Bars 



Please enter my subscription lot: 
i 1 Special Introductory Offer 3 
L!l yr. (6 issues) - $10 
I 12 yr 112 issues) SIS 



$5 lU.S.only 
Buck Issues $2. 00 each 



Foreign Rates Surface mei 1 to all countries 
please add $5.'yr Airmail to Canada add $8/yr 
airmail to fcuropeand Pan Am add$12/yr, 
airmail elsewhere ■ adtl $16/yr. {U.S. currency) 

Pi check enclosed LJbiH me ($1 billinq lee) 

r iMaster charge 1 iBank Amcricard 

Card No. 

Exp. date 



Name 
Address 
Cty 
State 



Z.p 



Subscriptions beqin »vitti the current issue. 
P'ease send all orders to |)YMAV 

P.O. Box 310-D. Menlo ParV. C A 94025 
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TapeTalk is a truly unique publication for the first 

generation of computor pioneers. 
TapeTalk is a bi-monthly 'magazine' exclusively for the 

r 

TRS-80 System. 
TapeTalk is all on cassette— just load it in , 
A One Year Subscription is only $30.00 and it includes 

"An Introduction to TapeTalk" cassette. 
The "Introduction" or Single Issues may be purchased 

individually for $7.00 each. 

MAIL COUPON OR CALL TOLL FREE -- 1-800/835-2246 



■ PLEASE ENTER MY SUBSCRIPTION TO TapeTalk FOR: 




■ | [ 1 Year U.S. $30.00 [^\ 2 Years U.S. $S4 


00 * 


■ Make Check or Money Order payable to: 




■ TapeTalk, P. 0. Box 54014, San Jose CA 


95154 ■ 


■ Put on my fj^l VTSA/BankAmericard Q^j Master Charge * 


■ Card t Expiration Date 




■ Signature 


■ NAME (print) ■ 


■ ADDRESS ' 2 


S CITY STATE ZIP 


s 


■ NICKNAME 


5 \^\ 4 k ^Z) 16 k Q Level I [~] Level II ■ 



'a trademark of Radio Shack 
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Since 1972 we've been a place where 
people and computers get together. 

And with our new name change to RECREATIONAL COMPUTING we are continuing our dedica- 
tion to the field of personal computing. 

There will be more coverage of the TRS-80, PET & APPLE systems & user programs, more fantasy 
role playing games, articles on the L5 Society (space colonization) & whatever people, computers 
& dreams can produce. Subscribe & join us in these adventures. 



computers 



magazine 



♦Serious Games-games with ■ purpose *Fun Gams- 
pur* enjoyment! * Outrageous adventures into trie 
future * A plac* whare paopla and dragons gat togathar 
to explore the world of IF * A magazine for children and 
paopla who have children and paopla of all ages who Mill 
have their sense of wonder . . . That's People's Computmrz] 



People's Computers, the oldest personal computing periodical 
(once an outrageous newspaper called /TC), will soon become 
the newest periodical, called Recreational Computing 
magazine. 

Please start my one year subscription to People's Computers 
(soon to be Recreational Computing) and bill me for just S10. 



NAME 

ADDRESS. 



CITY/STATE. 




_ZIP_ 



O Visa/Bankamericard 
D Mastercharge 



Card No 

Expiration Date. 
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Dr. Dobb's journal 

ol Computer Calisthenics *& Orthodontia 
A Reference Journal for Users of Home Computers 

"THE software source for microcomputers. Highly 
recommended." -Philadelphia Area Computer Society 

• COMPLETE SYSTEMS & APPLICATIONS 

• PRODUCT EVALUATIONS 

• HOT NEWS AND RAGING RUMOR 

Please start my one year subscription to Dr. Dobb's Journal 
and bill me for just $ 1 5 (that's $5 off the single issue rate). 

NAME___ 



ADDRESS 

CITY/STATE 

D Visa/Bankamericard 
□ Mastercharge 



Dk La mis lOUBNALd 

COMPUTER 



ZIP. 



Card No 

Expiration Date. 
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Dr. Dobb's Journal of Computer Calisthenics 
and Orthodontia was the birthplace of Tiny 
BASIC. Since then it has been the source of 
public domain systems and applications soft- 
ware. The only small computer magazine to 
publish complete documented source code for 
microcomputer operating systems and com- 
pilers. 

Get the very most out of your system by 
studying the extensive software— including 
fascinating new languages like LISP -presented 
in its entirety ready for you to get up and run- 
ning on your machine. 

We keep abreast of what is happening in 
this fast-moving field and share that informa- 
tion with you. You'll read about new develop- 
ments, breakthroughs on the leading edge of 
computer technology, and flights of realizable 
fantasy. That's not to mention all the product 
announcements, tidbits, rumors and plain 
gossip. 

Dr. Dobb's Journal gives you 10 issues at 
$15.00 per year— all content, all useful infor- 
mation on new hardware and software develop- 
ments, product commentary and opinion and 
controversy from readers in our lively letters 
section. Our readers -and the people who find 
our pages useful— range from beginning hobby- 
ists to astrophysicists because they share a com- 
mon interest, the fascinating power and possi- 
bilities of this new technology. 

Join them in exploring and expanding the 
uses and the possible uses of computers by fil- 
ling out the subscription form. If for any reason 
you are not satisfied, the remainder of your 
subscription will be immediately refunded. 



RECENT HIGHLIGHTS 

Lawrence Livermore Lab's 8080 BASIC — with floating 
point package, complete user documentation & ex- 
amples, assembled annotated source code 155 pages) 

8080 PILOT, Version 1.1 -complete user's manual 
1 1 3 pages) source code ( 1 6 pages) 

M6800 Disassembler 

A SC/MP Subroutine Supervisor 

An 8080 Disassembler -documentation & complete 
assembled listing (14 pages) 

High Speed Interaction Without Interrupt or DMA- 
simple floppy interface exempted 

ISIS: Anatomy of an Operating System 

The SAM76 Language -a powerful string & macro 
processor (20 pages) 

A KIM-1 (6502) Disassembler 

MATHPAC: A Kimath Supplement 

GPM for the 6800 -complete documentation & 
annotated source code 

KAPIAR. An 8080 Macroprocessor — documentation 
A source code in PL/M, and the resulting assembler 
& machine code 

A Detailed Report on Product Delivery Complaints 
- received from DDJ readers 

The Heath H-8: Pro & Con -an evaluation & detail- 
ed response 

Multiple Column Accounting-a journal balancing 
program 

An Interactive Programming Language for Control of 
Robots— complete background, documentation, ex- 
amples 81 source listing (12 pages) 

A Microprocessor Operating System: The Kernel — 
documentation, data structure schematics 81 source 
listing 120 pages) 

Some Dire Warnings of a Modem 

Decoding 650 X Opcodes 

Curve Plotting on a TV Screen with the Polymorphics 
Video Interface and MITS BASIC 

KIM-1 Breakpoint Routines: Plain 81 Fancy 

An Example of an M6800-Based GPIB Interface- 
hardware & software for an IEEE 488 Interface 
125 pages) 

Video Chase for 8080/VDM (16 pages) 

LISP for the 8080— complete documentation and 
source listing 

FORTH for Microcomputers 

EM8080: An 8080 Emulator for 6800 Systems 
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PUT A HANDLE 
ON YOUR TRS 80® 

Matched set ot custom built cases to protect and store your computer. 

• Dustproot • Durable Vinyl Construction 

• Convenient • Handsome Black Textured Finish, 

• Protective skids • Luggage Style Handle 



Keyboard 



Cassette Macrw 




Holds 12" Vid»o Monrlor 



Special J Order A Set 

Save 10% Your Cost $54.00 

Get Protection For Your 

TRS 80 Now 

Order Yours Today! 

Made in the USA by Ambico Inc., 101 Horton Ave. Lynbrook, N. Y. 11563 




Send Check or Money Order to: Ambico Inc. 
101 Horton Avenue Lynbrook, New Ybrk 11563 

Case A $35.00 □ Case B $25.00 □ 
Set: Case A and B $54.00 □ 

I Send To: 



"i 



Name 



Zip 



Address 

Please add $2.00 per case shipping and handling charge. N.Y. State 
residents include sales tax. 



LEVEL II 



PQ BOX 8316 
ANAHEIM, CA 
92802 



ATTENTION TRS - 80 OWNERS 



PRESENTING LEVEL I MAGAZINE, the audible magazine, written for the TRS - 80 com- 
puter. LEVEL 1. a unique concept in computer communications, is produced on a C-60 cassette 
with every issue written in Level 1 and Level II. A magazine type format with a minimum of 40K 
oi programing per side is broken down into 16K loads. 

Each month has 25 recurring articles, ranging from product information through sports in- 
structions, to self analysis, but that's just the beginning . . . each issue contains (2) game programs, 
graphic displays, educational aids, and information to keep you busy for hours. 

"Level One" Magazine is sold on a yearly and semi-yearly subscription. $40.00 and $22.00 
respectively. An introductory issue for interested future subscribers is $3.00, an investment well 
worth your time and money. 

For further information write to: 



Level I Magazine 
P.O.Box 8316 
Anaheim, CA 92802 



TRS -SO, PET, * Appk II 

Computer Cassettes 

Edition 5 - February 1979 




By George, I did it! 



A few months ago I said that in August I 
would publish a list of all the cassettes of 
software available for trade or sale for the 
TRS-80. Sure enough, I searched through the 
computer magazines for software advertise- 
ments, compiled the list, and printed it in 
mid-August, right on schedule. I may not 
have listed a]J_ the TRS-80 software on 
cassettes, but I sure got a lot. 

Well, it's time to try again. In the three 
months since the last list was published, 
a whole lot of TRS-80 programs have been 
written. By mid-November, I should have 
a much larger and more complete list 
ready to send to you. Being a capitalist, 
I charge two whole dollars for the list (postpaid). If after you get 
it, you don't think it is worth it, I'll refund your money. Can't 
go wrong there, can you? 

If you want to subscribe to this quarterly publication, starting 
with the November issue, send me $9.00 (before I run out of copies 
toward the end of November). Otherwise the February issue will be 
$4.00 and the subscription rate starting with the February issue will 
be $12.00. (No, that's not inflation; it's just that the list is 
getting so long that I have to charge that much.) So order now while 
it's still cheap. 

P.S. Vo you have, any &o&twaAz on ca66e££z& ion. Viade. on. tale.? 

Robert Elliott Purser, Box 466, El Dorado, Ca 95623 
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TRS-80 

Micro-Mega CASSETTE CONTROL UNIT 

• Speed up your cassette tape handling • Pinpoint program 
locations on tape with an audible auxiliary monitor • Get 

protection from recording and playback glitches resulting from 
ground loops • Eliminate the tedious plugging and unplugging 
of recorder cables. 

The Micro-Mega Cassette Control 
Unit does all this and more. You 
get instant manual control of the 
recorder at the flick of a switch. 
Want to find the beginning or 
end of a program? Flick another 
switch, and you'll hear it. All 
cables remain plugged in all the 
time. 

The Micro-Mega Cassette Control 
Unit does a lot to clean up and 
neaten up your whole TRS-80 in- 
stallation too. As shown at the left, 
it's in a 2V2"x5" box which snuggles 
between the keyboard and your recorder. There is no need 
to move the recorder, and there no longer are any 90 degree 
cable bends whipping around. It's fast, neat and convenient, - and 
its's a bargain! 

CASSETTE CONTROL UNIT - S32.50 

Micro- Mega 

P.O BOX 6265 • ARLINGTON, VA 22206 
I Virginia residents add 4 r 'r sales tax ) 




TRS-80 BUS CONNECTORS FOR HOME-BREW INTERFACES TOP QUALITV VIKING 

AND 3-M, GOLD PLATED CONTECTS SOLDERLESS TVPE TERMINATED IN 18" 48 

CONDUCTOR RIBBON CABLE $9 95. SOLDER TAIL TVPE $6 95 PRICES POSTPAID 
NV RESIDENTS ADD &'/. TAX APPLIED INVENTION, RD 2, RT 21, HILLSDALE, 
NV 12529 INQUIRE ABOUT OUR PARALLEL PRINTER INTERFACE FOP LEVEL II 



PROGRAMS * * PROGRAMS * * PROGRAMS * * PROGRAMS 

GAMES - - Bridge, Life, Poker, Compu-thello, and more. 
BUSINESS - - General Accounting, Mailing List Manager 
HAM RADIO - - Contest loggers. DXCC recorders, more 

DIS-ASSEMBLER AND OTHER COMPUTING AIDS 
SEND A LARGE STAMPED, SELF-ADDRESSED ENVELOPE 

RjJlhUluinv, 



P.O. Box 145 • Lithonia, Georgia • 30058 



AND GET THE COMPLETE LIST. 
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i PROGRAM BY TAMF^ B PENNY 




80206 


■ FILE NAMF MEM 


SCR 




80300 


. ENTRY 


PT 4410 


HEX. 17424 DFCIMAI 




00400 


•PRINT? 


ASPII VALUE OF IK CHUNK OF 




00500 


■ MEMOPY 


1 WHICH CAN SCROLL UP OP DOWN 




80600 


• USING 


KEYBOARD 


ARROWS PROGRAM 




00700 


I BEGINS 


AT 0080H AND REPEATS WHEN 




00800 


i FFFFH 


<"64K"> IS 


REACHED EACH KEY- 




00900 


) STROKE 


SCROLLS 


4 LINES 


4416 


01000 




ORG 


4410H 


4416 31FD4F 


01100 




LD 


SP. 4FFDH; INJT STACK 




01200 


i NOTE 


3840H IS 


TRS-80 FUNCT KEY COL 


4413 DO214038 


01300 


KBD 


1 D 


IX, 3840H 


4417 DD4600 


01400 




LD 


B, HX) 


441R CD5544 


01500 




CALL 


DLV 


441D DD7E00 


01600 




LD 


A, (IX) 


4420 B8 


01700 




CP 


B; CHECK DEBOUNCE 


4421 28F0 


01800 




JR 


NZ, KBD 


4423 FE08 


01900 




CP 


8H;UP ARROW 


4425 2009 


02000 




JR 


NZ. DOWN 


4427 FD214R44 


02180 




LD 


IV- BYTE 


442B FD3400 


02200 




INC 


<IV) 


442E 1818 


02300 




JR 


SUB 


4430 DD7E00 


82460 


DOWN 


LD 


A, (IX) 


4433 FE10 


02500 




CP 


10H. DOWN ARRROU 


4435 2009 


026B0 




JR 


NZ, KDN 


4437 FD214A44 


02700 




LD 


IV, BYTE 


443B FD3500 


02808 




DEC 


<IV> 


443E 1888 


02900 




JR 


SUB 


4440 flF 


03000 


KDN 


XOR 


A; ZERO A 


4441 DDBE00 


03100 


HERE 


CP 


<IX); IS KEY ACTIVE? 


4444 28CD 


03200 




JR 


2, KBD; IF NO THEN LOOP 


4446 20F9 


03300 




JR 


NZ, HERE; IF VES STAY HERE 


4448 2100 


03400 


SUB 


DEFW 


21H;FRKE OUT 


4448 00 


03500 


BYTE 


DEFB 


0H; THIS BYTE CHANGES 




03550 


i SCREEN 


MEMORY 


STARTS AT 3C00H AND STORES 




03555 


;400H BYTES OF 


DATA. 


444B 11003C 


03600 




LD 


DE, 3C00H; DESTINATION 


444E 010004 


03700 




LD 


BC, 400H; COUNTER 


4451 EDB0 


03800 




LDIR 


; TRANSFER DATA BLOCK 


4453 18EB 


03900 




JR 


KDN 


4455 F5 


04000 


DLV 


PUSH 


AF 


4456 210001 


04100 




LD 


HL.100H; DEBOUNCE DELAY 


4459 2B 


04200 




DEC 


HL 


445fl ?C 


04300 




LD 


A.H 


445B B5 


04400 




OR 


L 


445C 20FB 


04500 




JR 


NZ. DLV+4; DEC HL TO 


445E Fl 


04600 




POP 


AF 


445F C9 


04700 




RET 




4410 


04800 




END 


KBD-3 


00000 TOTAL ERRORS 








HERE 4441 










KDN 4440 










SUB 4448 










BYTE 4448 










DOWN 4430 










DLV 4455 










KBD 4413 











Dear Gordon, 

Here are a number of observations about the TRS-80 that 
may be useful to some of your readers with Level II: 

Not all string variables are placed into the string 
space buffer at the end of the RAMI If a string 
variable receives its value via a READ statement, or 
from a simple assignment to a string constant (i.e., 
A$="HELL0") , then it takes up no space in the buffer. 
Also, any variable set equal to such a variable also 
takes no space in the buffer. The first time I noticed 
this, I thought there was a problem with the FRE( ) 
subroutine, and It took me a while to figure out what 
was going on: the string address (partially described 
on page 8/9 of the Level II manual) Is an address of a 
byte, not in the string buffer, but in the program, 
namely, the first byte of the constant in the DATA or 
replacement statement. It makes sense, since there's 
no reason to have two copies of the same string, one in 
the program, and one in the buffer. 

The description of the USR function says that the 
machine language executes a CALL 0A7F to get the value 
of the argument, but does not say how it is returned. 
I've experimented a bit, and found that it is returned 
in the HL register pair. 

Not that it matters much, but if you type a letter on the 
keyboard with the SHIFT key pressed, you get a lower-case 
letter (SHIFT-6is an acute accent), but these are all 
displayed as upper case (and @) on the screen. 

Instead of a character enclosed in quotes, the CLOAD and 
CSAVE commands will accept CHR$(n), where n is an 
integer from 1 to 255 (zero is not useful). For that 
matter, a string variable will work, too. The first 
character of the string will be used for the string 
defining the name of the file. 

Sorry, Roy Hempel, but you won't get any 4x characters 
out of your TRS-80, or a mixture of 2x and lx either. 
Expanded characters are produced by the hardware, and 
there are only the two modes. By the way, in the 32- 
character mode, characters or graphics at even-numbered 
addresses are expanded to fill two locations, and the 
other characters are ignored. Software usually handles 
this nicely, but plotting while in the 32-character mode 
is a pain. 

The manual (page 11/2) suggests poking graphics onto the 
screen to save time. An even faster way is to PRINT 
them! Try PRINT STRING* ( b4,181) for a fast example. 
Set up your plots as strings by packing six plotting 
dots into one character, and concatenating characters 
into strings, and you can set up 255 characters of six 
dots each with a sinple PRINT statement. For each 

character position to have plotting dots 
in it, assign the value CHRtf ( 128m) , 
where n is the sum of numbers corres- 
ponding to the the positions where you 
vou want a «rhite SDot. 



1 


2 


4 


8 


16 


32 



It seems that no matter how cheap a tape I use, my TRS- 
80 can always get programs on and off, though sometimes 
with a moderate amount of difficulty, like with the 
three C-60 tapes (made in Mexico) for $1.29 that I 
found somewhere... 

There are rumors about that a slight hardware mod that 
adds a lKxl RAM chip and rewires a few existing chips 
can add lower-case display on the Level II. The video 
RAM, locations 3C00 to 3FFF. is only seven bits wide. 
(There are eight bits in a byte, numbered 7 through 0.) 
Bit 6 of the video RAM simply isn't there. However, if 
you go PEEKlng and POKEing in there, this fact is not 
obvious. Although bit 6 is discarded when you store a 
byte there, the bit is read back as the NOR of bits 7 
and 5- 

Whereas Level I Basic comparison operators returned a 
value of 1 to indicate "true", Level II returns -1 . 
That one caught me a few times. 

To make the Radio Shack Blackjack (either level) a'bit 
smarter with regard to which bets it will accept, go 
ahead and add the necessary code. Make up for it by 
deleting the code that displays the cards already 
played, since that function is very unrealistic. 

Level II T-BUG differs from Level I in more ways than 
listed in the manual. The useful subroutines are not In 
the same locations, but if you can sneek a peek at the 
Assembler /Editor manual, it will give you some you can 
use. Also, the register-save area starts at location 
4825 on Level II. 

The USR function can be very helpful to those who know 
machine-language. One of my programs ran for something 
like eight hours when written in Basic; by writing the 
main subroutine in machine, I got it to run in eight 
minutes. 

Comments and criticisms on the above are welcome, and I 
feel competent enough (I've been a professional programmer 
for lo, these seven years) to answer most questions about 
Basic, etc, that any of the members may have, If they 
would be so kind as to enclose a stamped, self-addressed 
envelope. 

Steve MacGregor 
3701 W Wetheref ield 
Phoenix, AZ 85029 



GATHERING DUST ! 

HP 175 scope , 50mhz , dual plug-in; 2-IBM 

33FD Floppies » 2-Selectric terminal 

mechanisms j 3-IBM keyboards 1 Want to 

get interface for such devices for TRS-80. 

Also need chips or $ for 16K. 

Ed. Fives 5815 Silva St. Lakewood.Ca. 

90713 (213)920-8042 eves. 



Dear Gordon. 

Here are some tips for using Level II 
that may not be too obvious to all users. 

1. The POINT argument in Level I returns 
a 1 if on, and a if off. In Level 
II it returns a -1 if on, and a if 
off. This can cause some very strange 
problems on conversion from Level I to 
Level II tapes. 

2. To erase a line in Level II, just plain 
PRINT" " won't work unless you put 64 
spaces between the quotes. Instead use 
PRINT @ 512, ;CHR$(30) to erase a full 
line at raid«screen. 

3. When using tabs, don't put a space be- 
tween the word TAB and its number: 
WRONG PRINT TAB (10) 

RIGHT PRINT TAB (10) 

4. If you enter programs directly from a 
magazine, etc. be aware that many BASICs 
use RND(l) to get a rnadom number between 
and 1 (such as .0125). Radio Shack 
BASIC (both Levels), however, use RND(0) 
to obtain the same thing. RND(l) will 
always return a 1. 

5. If you have defined a letter variable as 
DOUBLE PRECISION, don't attempt to use it 

as the counter in a FOR .NEXT loop: 

EXAMPLE 10 DEFDBL A-Z 

20 FOR Z-lTOl 500: NEXT Z 
The above won't work because Z must be 
an integer to be used as a FOR.... NEXT 
counter. 

Hope this information is of some help to all. 

Sincerely, 

Dave Miller K9P0X 
7462 Lawler Avenue 
Niles, Illinois 60648 



SURVIVE <R-G) - BACKPACKING ADVENTURE 

STARWARS <R-G> - SHOOTOUT. 

CAPITALISTS - SIMULATION OF 2 COMPANIES < PLAYERS) 

PIONEER - CHALLENGING THE ROCKIES IN THE OLD WEST 

SPACE-VOVAGE - STAR TREK PLUS EXTRAS 

BREAKAWAY <G> - 3 TIE-FIGHTERS VS YOURSELF 

BASEBALL <G> - 4 PITCHES, 4 BATTER OPTIONS 

FOOTBALL - 9 OFFENSIVE OPTIONS, 4 DEFENSEb 

HOCKEY <G> - HUMAN OR COMPUTER OPPONENT 

R=REAL-TIME APPROXIMATION G=GRAPHICS 

$10. 80 FOR FIRST 4; *1. 80 EACH ADDITIONAL PROGRAM 

RLL ARE 4K, LEVEL I, SUPPLIED ON CASSETTE 

CHECK OR MONEY ORDER TO : 

MICHAEL FLANAGAN, 130 HOLLY, RIVEREDGE, OH 44135 



10 REM WRITTEN BV JOHN MARLER SAN JOSE, Cfl 

11 REM LINE 22 SHOULD BE CHANGED TO THE ACCURACY "T EACH UNIT 

12 REM ON THE TIMING LOOP LINES 130 AND 148 SET STARTING COUNT 

20 CLS PRINT PRINT PRINT 

21 PR I NTTAB < 21 ) ; " TELEPHONE TOL L ACCUMULATOR " PR I NT PR I NT 

25 INPUT"DO VOU WISH INSTRUCTIONS ( 1=VES. 2=NO>". A 

26 IFA=1GOTO380 

28 CLS PRINT PRINT PRINT 

29 PRINTTABf21); "TELEPHONE TOLL ACCUMULATOR" PRINT PRINT 
J0 INPUT"WHAT IS THE INITIAL TIME PERIOD ^MINUTES)"; P 

35 PRINT PRINT 

40 PR I NT "FOR THE FOLLOWING ENTRIES DO NOT ENTER DECIMALS! " 

41 PRINT-ENTER ALL NUMBERS AS INTEGERS-($1 35 IS ENTERED " 

42 PRINT M AS 135; $2. 12 IS '212'. ETC)" PRINT 

43 INPUT"WHAT IS THE INITIAL CHARGE : "; I 
45 PRINT PRINT 

50 INPUT"WHAT IS THE ADDITIONAL CHARGE PER MINUTES "; M 

51 CLS PRINT PRINT 

55 PRINT-WHEN THE OTHER END PICKS UP THE RECEIVER" 

57 INPUT-PRESS ENTER TO START TIMING ";A* 

60 CLS PRINT PRINT 

80 PRINT-THE INITIAL COST OF THE FIRST "; P; " MINUTES IS *"; 1/180 

85 PRINT" THE ADDITIONAL COST PER MINUTE IS:*";M/100 

90 PRINTAT<847), "PRESS 'BREAK' TO STOP COUNTING. " 

108 C=I/180:D=1 

110 F0RX*22T093 

115 SET(X,22):SET<X, 28):NEXTX 

120 F0RV=22T028 

125 SET<22,V):SET<93, V).NEXTV 

138 T=56 

140 IFP=3THENT«176 

158 G0T0221 

200 PRINTAT<526>, "THE TOTAL CHARGE NOW IS: $";C 

210 SET < 93, 24): SET (93, 25>:SET<93, 26) 

215 PRINTAT651, "TOTAL TIME CHARGED IS NOW: ";P+D;" MINUTES" 

220 T=59:D=D+i 

221 C=C+(M/100) 

225 FORX=1TO490:NEXTX 

230 PRINTAT330, "SECONDS TO NEXT ADDITIONAL CHARGE: "; T 

240 T=T-1 

245 IFT=-iGOTO200 

250 G0T0225 

388 CLSPRINT'VOUR CHARGES ARE CALCULATED ON 3 THINGS:" 

310 PRINTTAB<18); "(1) INITIAL TIME PERIOD <1 OR 3 MINUTES)" 

320 PRINTTAB(10>>"<2) INITIAL CHARGE FOR INITIAL PERIOD" 

330 PRINTTABC10); "<3> ADDITIONAL CHARGE PER MINUTE AFTER" 

335 PRINTTAB<14); "INITIAL TIME PERIOD" 

340 PRINT PRINT" IF VOU USE AN OPERATOR TO ASSIST, THE INITIAL" 

358 PRINT"TIME PERIOD IS 3 MINUTES. DIRECT DIAL IS 1 MINUTE. " 

368 PRINT :PRINT"THE CHARGES ARE BASED UPON THE DESTINATION CALLED. . . " 

370 PRINT" THESE ARE 'USUALLV LISTED IN THE FRONT OF THE PHONE" 

380 PRINT"BOOK. . OR. CALL THE OPERATOR FOR RATES. " 

390 PRINT"DO VOU WANT INFORMATION ON DISCOUNT PERIODS" 

400 INPUT"<1=VES, 2=N0)";B 

410 IFB=2G0T028 

428 CLS: PR I NT "THERE ARE TWO DISCOUNT PERIODS IN THE CONT U. A. S. " 

438 PRINTTA8<22); "35* DISCOUNT 5PM - 11PM SUN THROUGH FRI" 

440 PRINTTAB<22); " 8AM - 11PM ALL HOILDAVS" :PRINT 

458 PRINTTABC22); "65* DISCOUNT: 11PM - 8AM EVERV NIGHT" 

460 PRINTTAB<22); " 8AM - 11PM SATURDAY" 

478 PRINTTA8C22); " 8AM - 5PM SUNDAVS" 

475 PRINT PR I NT "CHARGES BASED ON TIME AT CALLING POINT ORIGIN'" 

476 PRINT PRINT PRINT 

488 INPUT-PRESS ENTER TO INPUT TIME AND CHARGE INFORMATION ".A* 

498 G0T028 [J 



4 REM * P M =738 OR 13026 * 

5 REM * RADIO SHOCK TRS-80 COMPUTER SCREEN DISPLAY * 

6 REM * COPYRIGHT FRED BLECHMflN 1978 * 

7 REM * 23958 ARCHWOOD ST , CAHOGA PARK, CA 9130? * 

8 REM * LOOP VALUES * 

19 DATA6, 14, 9, 19, 2€>, 9, 30, 38, 9, 42, 43, 9, 47, 54, 9, 65, 72, 9 

20 DATA76, 77, 9, 84, 85, 9, 89, 96, 9, 101, 108, 9, 112, 113, 9, 119, 121, 9 
30 DATA6, 14, 12, 18, 27, 12, 38, 31, 12, 38, 39, 12, 42, 43, 12, 46, 47, 12 

40 DATA54, 55, 12, 65, 72, 12, 76, 85, 12, 88, 97, 12, 100, 101, 12, 112, 117, 12 

50 DATA6, 7, 15, 14, 15, 15, 18, 19, 15, 26, 27, 15, 30, 38, 15, 42, 43, 15 

68 DATA47, 54, 15, 65, 72, 15, 76, 77, 15, 84, 85, 15, 88, 89, 15 

70 DATA96, 97, 15, 101, 108, 15, 112, 113, 15, 119, 121, 15 

80 DATA30, 39, 20, 42, 50, 20, 55, 62, 20, 75, 82, 20, 87, 94, 20 

90 DATA34, 35, 23, 42, 50, 23, 55, 62, 23, 68, 71, 23, 74, 83, 23, 86, 87, 23 

100 DATA94, 95, 23 

110 DATA34, 35, 26, 42, 43, 26, 50, 51, 26, 55, 62, 26, 75, 82, 26, 87, 94, 26 

120 DATA17, 24, 31, 29, 36, 31, 40, 42, 31, 47, 49, 31, 52, 60, 31 

130 DATA64, 65, 31, 72, 73, 31, 76, 85, 31, 88, 97, 31, 100, 108, 31 

148 DATA16, 17, 34, 28, 29, 34, 36, 37, 34, 40, 41, 34, 44, 45, 34, 48, 49, 34 

150 DATA52, 60, 34, 64, 65, 34, 72, 73, 34, 80, 81, 34, 88, 95, 34, 100, 108, 34 

160 DATA17, 24, 37, 29, 36, 37, 40, 41, 37, 48, 49, 37, 52, 53, 37 

170 DATA65, 72, 37, 80, 81, 37, 88, 97, 37, 100, 101, 37, 108, 109, 37 

280 REM * SINGLE SETS * 

210 DATA39, 6, 7, 14, 15, 18, 19, 26, 27, 30, 31, 38, 39, 42, 43, 46, 47, 54, 55 

220 DATA64, 65, 72, 73, 76, 77, 84, 85, 88, 89, 96, 97, 100, 101 

230 DATA108, 109, 112, 113, 117, 118, 119 

240 DATA35, 6, 7, 14, 15, 18, 19, 26, 27, 30, 31, 38, 39, 42, 43, 46, 47, 54, 55 

259 L-ATA64, 65, 76, 77, 84, 85, 88, 89, 96, 97, 100, 101, 112, 113, 116, 117, 118 

255 DATA1, 6 

268 DATR35, 6, 7, 12, 13, 18, 19, 26, 27, 30, 31, 38, 39, 42, 43, 46, 47, 54, 55 

270 DATR72, 73, 76, 77, 84, 85, 88, 89, 96, 97, 180, 101, 112, 113, 116, 117, 118 

280 DRTA40, 6, 7, 12, 13, 14, 18, 19, 26, 27, 30, 31, 38, 39, 42, 43, 46, 47, 54, 55 

290 DATA64, 65, 72, 73, 76, 77, 84, 85, 88, 89, 96, 97, 100, 101, 108, 109 

300 DATA112, 113, 117, 118, 119 

310 DATA18, 34, 35, 42, 43, 50, 51, 54, 55, 62, 63, 74, 75, 82, 83, 86, 87, 94, 95 

328 DATA16, 34, 35, 42, 43, 50, 51, 54, 55, 74, 75, 82, 83, 86, 87, 94, 95 

330 DATA1, 34 

340 DATA16, 34, 35, 42, 43, 48, 49, 62, 63, 74, 75, 82, 83, 86, 87, 94, 95 

350 DATR19, 34, 35, 42, 43, 48, 49, 50, 54, 55, 62, 63, 74, 75, 82, 83, 86, 87, 94, 95 

360 DATA32, 16, 17, 24, 25, 28, 29, 36, 37, 40, 41, 42, 43, 46, 47, 48, 49 

370 DATR52, 53, 60, 61, 64, 65, 72, 73, 80, 81, 88, 89, 100, 101, 108, 109 

380 DATA28, 16, 17, 28, 29, 36, 37, 40, 41, 44, 45, 48, 49, 52, 53, 60, 61, 64, 65 

390 DATA72, 73, 80, 81, 88, 89, 100, 101, 108, 109 

408 DATfll, 16 

410 DATA24, 16, 17, 28, 29, 36, 37, 40, 41, 48, 49, 52, 53, 64, 65, 72, 73 

420 DATA88, 81, 88, 89, 100, 101, 106, 10? 

430 DATA27, 16, 17, 24, 25, 28, 29, 36, 37, 40, 41, 48, 49, 52, 53 

440 DATA64, 65, 72, 73, 80, 81, 88, 89, 106, 101, 106, 107, 108 

506 REM * MAIN PROGRAM * 

504 Z=0 

505 CLS RESTORE 
596 IF 2=0 GOTO520 

510 CLS : RESTORE 

511 FOR Y=0 TO 47 

512 FOR X=0 TO 127 

513 SET<X, V> 

514 NEXTX : NEXTY 
520 FOR J=l TO 89 
530 READ A, B, V 
540 FORX»A TO B 

545 IF Z=l THEN RESETCX, Y) : G0T0568 

550 SET<X, V) 

560 NEXTX : NEXTJ 



600 


G0SUB680 






616 


G0SUB698 






620 


GO SUB 7 OO 






638 


GOT 0900 






688 


FOR V=10 TO 


14 




685 


GOT0705 






690 


FOR V=21 TO 


23 




695 


GOT 0705 






788 


FOR Y=32 TO 


36 




705 


READ A 






718 


F0RX=1 TO R 






715 


IF 2*1 THEN 


READ B: RESET' B. 


V) Q0T0738 


728 


READ BSETd 


3.. V) 




72G 


NEXTXNEXTV 






740 


RETURN 






988 


PRINT00; 






905 


IF Z=l THEN 


Z=0 G0T0910 




966 


IF Z=0 THEN 


Z=l 




910 


FOR X=l TO 1000 NEXTX 




920 


GOTO505 







HERE ARE A COUPLE OF SHORT CONTROL LINES THAT MAY BE OF 
INTEREST TO OTHER USERS 

LNM = LINE NUMBER 

NLN = NEXT LINE NUMBER 

FLN = FIRST LINE NUMBER 

THIS ONE WILL STOP THE SCROLLING AT ANY NUMBER OF LINES (I USE 12) 

LNM T=T+1:IF T<>12 THEN (NLN) ELSE INPUT T . T=0 

THIS ONE WILL RERUN OR END AND WITH MODS CAN DO OTHER SPLIT DECISIONS 

LNM A$="": INPUT "DO YOU WISH TO DO ANOTHER <Y/N)"A* 

NLN IF A$= 6 THEN (FLN) ELSE IF flfO (LNM) END 

THESE ARE IN USE ON LEVEL II BUT THE FIRST WILL WORK ON LEVEL I 

BY CHANGING ELSE TO : (I THINK) 

CAN ANYONE GIVE ME THE FOLLOWING INFO ON THE CABLE BETWEEN THE 

EXPANSION PORT AND THE CENTRONICS PRINTER PIN# 1-21-22-25-26-28 

FROM EXP PORT CONNECT TO PINS* ? ? "' ? ■' ? ON THE CENTRONICS PLUG 

DON FIELDING, 2207 NW 61 PLACE, MARGATE. FL 33062 



I HAVE A 16K LEVEL I TRS-88 

WOULD LIKE TO TRADE PROGRAMS SEND ME A 60 MINUTE TAPE 4 I WILL 

RETURN A 60 MINUTE TAPE I SHOULD HAVE LEVEL II ANY DAY 

J W. TAYLOR, 611N2. CABOT. AR 72023 

I HAVE ABOUT 50 PROGRAMS 



+ IfcK RftM * 16K RRN * 16K RfiM + 16K RAM * 16K RRM * 

UP-GRRDE VOUR TRS-88 TO 16K MEMORY' OR ADD RRM TO 
Y'OUR EXPANSION INTERFACE 16K RRM FOR ONLY' $124. 58 
OR 32K FOR ONLY' *215. 50 + *2. 00 SHIPPING/HANDLING 
SEND TO : TRS-W0 USERS GROUP, 7554 SGUTHGATE RD. 
FAYETTE V I LLE, NC 28304 C919) 867-5822 

MAKE CHECK PAYABLE TO THE : TRS-88 USERS GROUP 
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